home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / System / Safe / bonus / NewShell.asm next >
Encoding:
Assembly Source File  |  2001-07-11  |  1.7 KB  |  105 lines
  1. ;As TCPPATCH is no longer part of Safe it is PublicDomain now.
  2. ;If You want it then use C:Resident commant to add my NewShell
  3. ;replacement to the list instead the ROM one.
  4. ;It is no longer required because all the versions
  5. ;of Fungus/Vaginitis systems seems to be known now.
  6. ;Sorry if my code looks like virus or black magic. It isn't.
  7.  
  8.  
  9.  
  10. ; tcp_trojan_founder 7 (14.4.2001)
  11.  
  12. ; coded by Zbigniew `Zeeball` Trzcionkowski
  13.  
  14. ; NewShell replacement
  15.  
  16.  
  17.  
  18.  
  19. Be:
  20.     lea.l    Buffer(pc),a4
  21.  
  22.     lea.l    NS(pc),a1
  23.     move.l    (a1)+,(a4)+
  24.     move.l    (a1)+,(a4)+
  25.     
  26.     movem.l    d0-a0/a6,-(sp)
  27.     move.l    a0,a2
  28.     move.l    d0,d2
  29.     beq.b    .overjump
  30.  
  31. .loop:
  32.     move.l    (a2),d4
  33.     or.l    #%00100000001000000010000000100000,d4
  34.     cmp.l    #"tcp:",d4
  35.     beq.b    .found
  36.     addq.l    #1,a2
  37.     dbra    d2,.loop
  38.  
  39. .overjump:
  40.     movem.l    (sp)+,d0-a0/a6
  41.     bra.b    RUN
  42.  
  43. .found:
  44.     move.l    4.w,a6
  45.     lea    $17a(a6),a0    ;LibList
  46.     lea.l    IntuiName(pc),a1;Name
  47.     move.l    #"ion.",6(a1)
  48.     jsr    -276(a6)    ;FindName
  49.     move.l    d0,a6
  50.  
  51.     pea.l    Ok(pc)
  52.     pea.l    Text(pc)
  53.     clr.l    -(a7)
  54.     clr.l    -(a7)
  55.     clr.l    -(a7)
  56.  
  57.     move.l    a7,a1
  58.     sub.l    a0,a0
  59.     move.l    a0,a2
  60.     move.l    a0,a3
  61.     jsr    -$24c(a6)    ;EasyRequestArgs
  62.  
  63.     lea.l    20(a7),a7
  64.  
  65.     movem.l    (sp)+,d0-a0/a6
  66.  
  67. RUN:    lea.l    -1(a4),a2
  68.     tst.l    d0
  69.     beq.b    .x
  70. .copy:
  71.     move.b    (a0)+,(a2)+
  72.     dbra    d0,.copy
  73. .x
  74.     clr.b    (a2)+
  75.  
  76.     move.l    4.w,a6
  77.     lea    $17a(a6),a0    ;LibList
  78.     lea.l    DosName(pc),a1    ;DosName
  79.     move.l    #"dos.",(a1)
  80.     jsr    -276(a6)    ;FindName
  81.     move.l    d0,a6
  82.     
  83.     lea.l    -8(a4),a1
  84.     move.l    a1,d1
  85.     moveq    #0,d2
  86.     move.l    d2,d3
  87.     jsr    -222(a6)    ;Execute
  88.     moveq    #0,d0
  89.     rts
  90.     
  91. IntuiName:    dc.b    "intuit"
  92. DosName:
  93.     dc.b    "ion.library",0
  94.  
  95. Text:    dc.b    10," NewShell in TCP!",10
  96.     dc.b    10," This could be a TCP Trojan!",10,0
  97.     
  98. NS:    dc.b    "NewCLI ",0 ; heheheheheheheheh!!!!!!!!!!!!!!!!
  99.  
  100.     dc.b    "$VER: TCP_TrojanFounder 7 (15.04.01) by Zbigniew `Zeeball` Trzcionkowski",0
  101. OK:    dc.b    "OK",0
  102.     cnop    0,4
  103. Buffer:
  104.     ds.b    256
  105.